home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aak.d64 / seq reader (.txt) < prev   
Commodore BASIC  |  2007-02-04  |  1KB  |  44 lines
  1. 2 POKE53281,6:POKE53280,6:POKE646,1:PRINTCHR$(14)
  2. 4 CLR:R$=CHR$(13):PRINT"[147][208]LEASE ENTER FILE NAME":PRINT
  3. 5 INPUTB$
  4. 10 PRINT"[147][217]OUR OPTIONS:"R$;R$;R$" <[211]>CREEN  <[208]>RINTER  <?>[200]ELP  <[209]>UIT"
  5. 25 GETG$:IFG$=""THEN25
  6. 27 IFG$="Q"THEN1140
  7. 30 IFG$="S"GOTO60
  8. 33 IFG$="?"THEN1000
  9. 40 IFG$<>"P"THEN25
  10. 50 OPEN1,4,7:Q=1
  11. 60 OPEN5,8,5,B$+",S,R":GOSUB500
  12. 62 PRINT"[147] [208]RESS ANY KEY TO PAUSE, [208]RESS AGAIN TO"
  13. 65 PRINT"       CONTINUE   '[209]' ENDS PROGRAM"R$
  14. 100 GET#5,F$
  15. 110 IFST=0THEN130
  16. 120 IFST=64THEN300
  17. 130 IFQ<>1THENPRINTF$;:GOTO136
  18. 135 PRINT#1,F$;
  19. 136 GETA$
  20. 137 IFA$<>""THENGOSUB199
  21. 140 GOTO100
  22. 199 IFA$="Q"THEN1100
  23. 200 GETA$:IFA$=""THEN200
  24. 205 IFA$="Q"THEN1100
  25. 210 RETURN
  26. 300 GOTO1100
  27. 500 CLOSE15:OPEN15,8,15:INPUT#15,D,E$,F,G
  28. 510 IFD>0THENPRINT"[212]HERE IS A FILE ACCESS PROBLEM:"R$;D;E$:CLOSE15:GOTO1100
  29. 520 RETURN
  30. 1000 PRINT"[147][212]HIS PROGRAM IS A DISK FILE READ PROGRAM.[201]T WILL READ A";
  31. 1010 PRINT"NY SEQUENTIAL[146] FILE ON ANYDISK FORMATTED FOR THE [195]-64."
  32. 1020 PRINTR$"[212]O USE, SIMPLY TYPE IN THE NAME OF THE"R$"FILE YOU WISH TO SEE. [212]HEN";
  33. 1030 PRINT" CHOOSE"R$"WHETHER YOU WANT THE FILE SENT TO THE"R$"PRINTER OR SCREEN."
  34. 1040 PRINTR$R$"[215]HILE THE FILE IS BEING SHOWN, YOU MAY"R$"PRESS ANY KEY (EXCEPT '[209]";
  35. 1050 PRINT"') TO FREEZE THEDISPLAY (OR PRINTER)."R$"[208]RESSING '[209]' WILL END THE PR";
  36. 1060 PRINT"OGRAM."
  37. 1070 PRINT"        [208]RESS ANY KEY TO CONTINUE[146]"
  38. 1080 GETA$:IFA$=""THEN1080
  39. 1090 GOTO10
  40. 1100 Q=0:CLOSE1:CLOSE5:PRINTR$"[196]O YOU WISH TO READ ANOTHER FILE (Y/N)?"
  41. 1110 GETA$:IFA$=""THEN1110
  42. 1120 IFA$="Y"THENPRINTCHR$(147):B$="":GOTO4
  43. 1140 PRINTCHR$(142):PRINT"[147]                BYE":END
  44.